10 PRINT"[147]":GOSUB20:GOTO80
20 POKE53281,0:POKE53280,0:PRINTCHR$(14)"[129]"TAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
30 LI$[178]"ORTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTAN^
40 PRINTTAB(10)"[221] [196][201][211][203]-[201][196] [195][200][193][206][199][197][210] [129][221]":PRINTLI$
50 PRINT"[221] [213]SING THIS PROGRAM YOU'LL BE ABLE TO[129][221]
60 [153]"(null) CHANGE DISK-NAME,-ID OR HEADER-INFO FOR(null)":[153]"/";:[141]300:[153]"EXP"
70 [142]
80 X$[178]"0":DV[178][197](X$):DV$[178]X$:SP$[178]"        "
90 [153]SP$"LENHANGE STR$ISK-(null)AME.... (null) WAIT":[153]SP$"LENHANGE STR$ISK-ID...... RIGHT$ WAIT"
100 [153]SP$"(null)AKE LEFT$EADER-INFO.... LEFT$ WAIT":[153]SP$"DEF(null)UIT (null)ROGRAM........ (null) WAIT"
109 [153]SP$"    (null)OUR LENHOICE ? TOCMD";:[141]280
110 [153]X$:[159]15,8,15:[152]15,"I"[170]DV$:[159]1,8,3,"#":[152]15,"U1:3"DV",18,0"
120 [139]X$[178]"N"[137]230
130 [139]X$[178]"H"[137]310
140 [139]X$[178]"I"[137]160
150 [141]280:[137]120
160 [152]15,"B-P:3,162":[161]#1,A$,B$,C$,D$,E$:[153][163]7)"(null)REVIOUS STR$RIGHT$(null)(null)-RIGHT$STR$: ";
170 [153]A$;B$;C$;D$;E$:[153]"(null)EW STR$RIGHT$(null)(null)-RIGHT$STR$ (MAX. 5 CHAR.'_'=(null)AIN MENU)"
175 [153][163]16);:[133]NI$:[139]NI$[178]"_"[167]220
180 [139][195](NI$)[179][177]4[167]I$[178][200](NI$[170]" ",5)
190 NI$[178][200](NI$[170]"   ",5)
200 [152]15,"B-P:3,162":[152]1,NI$;:[152]15,"U2:3"DV",18,0
210 I$="I"+MID$(STR$(DV),2):PRINT#15,I$
220 CLOSE15:RUN
230 PRINT#15,"B-P:3,144":DN$="":FORL=1TO16:GET#1,A$:DN$=DN$+A$:NEXT
240 PRINT"[208]REVIOUS [196][201][211][203]-[206][193][205][197]:":PRINT:PRINT" "+DN$+" "
250 PRINT"[206]EW [196][201][211][203]-[206][193][205][197] (MAX.16 CH.'_'=[205]AIN MENU)":INPUTND$:IFND$="_"THEN220
260 ND$=LEFT$(ND$+"              ",16)
270 PRINT#15,"B-P:3,144":PRINT#1,ND$;:PRINT#15,"U2:3"DV",18,0":GOTO210
280 GETX$:IFX$<>"N"ANDX$<>"H"ANDX$<>"I"ANDX$<>"Q"THEN280
285 IFX$="Q"THENEND
290 RETURN
300 FORT=1TO37:PRINT"[192]";:NEXTT:RETURN
310 PRINT"[147]":GOSUB20:PRINT" [208]REVIOUS H-INFO:":PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
315 PRINT" '^'= [194]URTSOFT--HEADER. '_'= [205]AIN MENU"
320 PRINT#15,"B-P:3,176":HI$="":FORL=1TO10:FORT=1TO8:P$=" ":GET#1,A$
330 IFA$<P$THENA$="@[146]"
340 HI$=HI$+A$
350 NEXTT:PRINTTAB(4)HI$:HI$="":NEXTL
360 PRINT""TAB(26)"[206]EW H-INFO:":PRINTTAB(26)"[163][163][163][163][163][163][163][163][163][163][163][145]"
370 FORY=1TO10:PRINT:PRINTTAB(27)"";:FORT=1TO8
380 NH$="":PRINT"[164][157]";:WAIT198,1:GETNH$:POKE198,0:IFNH$="^"THEN500
385 IFNH$="_"THEN220
390 IFT>1ANDNH$=CHR$(20)THENPRINTNH$;:POKE198,0:T=T-1:NN$=LEFT$(NN$,(LEN(NN$)-1)):GOTO380
392 IFASC(NH$)>192ANDASC(NH$)<219THEN400
395 IFASC(NH$)<32ORASC(NH$)>127THENPOKE198,0:GOTO380
400 PRINTNH$;:NN$=NN$+NH$:NEXTT
410 HH$=HH$+NN$:NN$="":NEXTY:PRINT:PRINT
412 PRINTTAB(11)"[201]S THIS OK (Y/N)[145]":GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>"_"THEN412
413 IFA$="N"THEN430
415 IFA$="_"THEN220
420 PRINT#15,"B-P:3,176":PRINT#1,HH$;:PRINT#15,"U2:3"DV",18,0":GOTO210
430 PRINT"";:FORT=1TO10:PRINTTAB(27)"          ":NEXT:PRINT
440 FORT=1TO30:PRINT" ";:NEXTT:PRINT"";:NN$="":NH$="":HH$="":GOTO370
500 A$="--------":B$="ANGELSOF":C$="T:DE NIE":D$="UWSTE'64":E$="SOFTWARE"
510 F$="OOK ROM-":G$="PACKS !!":H$="TEL:03/6":I$="51.66.74"
520 HH$=A$+B$+C$+D$+E$+F$+G$+H$+I$+A$
530 PRINT"";:PRINTTAB(27)A$:PRINTTAB(27)B$:PRINTTAB(27)C$
540 PRINTTAB(27)D$:PRINTTAB(27)E$:PRINTTAB(27)F$:PRINTTAB(27)G$
550 PRINTTAB(27)H$:PRINTTAB(27)I$:PRINTTAB(27)A$:PRINT:GOTO412